VERSION 5.00
Begin VB.Form frmSubPrint 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "Preview & Print"
   ClientHeight    =   10215
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12555
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   10215
   ScaleWidth      =   12555
   ShowInTaskbar   =   0   'False
   Begin VB.Line Line21 
      X1              =   6840
      X2              =   7320
      Y1              =   6960
      Y2              =   6960
   End
   Begin VB.Line Line20 
      X1              =   7200
      X2              =   10680
      Y1              =   6960
      Y2              =   6960
   End
   Begin VB.Label lblROE 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   7200
      TabIndex        =   64
      Top             =   6720
      Width           =   3495
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      Height          =   825
      Left            =   8040
      Picture         =   "frmPrint.frx":0000
      Top             =   0
      Width           =   2880
   End
   Begin VB.Label txtType 
      BackStyle       =   0  'Transparent
      Caption         =   "Type"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   8160
      TabIndex        =   63
      Top             =   3840
      Width           =   2535
   End
   Begin VB.Label txtType 
      BackStyle       =   0  'Transparent
      Caption         =   "Type"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   8160
      TabIndex        =   62
      Top             =   3600
      Width           =   2535
   End
   Begin VB.Label txtType 
      BackStyle       =   0  'Transparent
      Caption         =   "Type"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   8160
      TabIndex        =   61
      Top             =   3360
      Width           =   2535
   End
   Begin VB.Label txtType 
      BackStyle       =   0  'Transparent
      Caption         =   "Type"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   8160
      TabIndex        =   60
      Top             =   3120
      Width           =   2535
   End
   Begin VB.Label txtType 
      BackStyle       =   0  'Transparent
      Caption         =   "Type"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   8160
      TabIndex        =   59
      Top             =   2880
      Width           =   2535
   End
   Begin VB.Label txtBUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "BUSD"
      Height          =   255
      Index           =   5
      Left            =   6960
      TabIndex        =   58
      Top             =   4200
      Width           =   975
   End
   Begin VB.Label txtBUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "BUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   6960
      TabIndex        =   57
      Top             =   3840
      Width           =   975
   End
   Begin VB.Label txtBUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "BUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   6960
      TabIndex        =   56
      Top             =   3600
      Width           =   975
   End
   Begin VB.Label txtBUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "BUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   6960
      TabIndex        =   55
      Top             =   3360
      Width           =   975
   End
   Begin VB.Label txtBUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "BUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   6960
      TabIndex        =   54
      Top             =   3120
      Width           =   975
   End
   Begin VB.Label txtBUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "BUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   6960
      TabIndex        =   53
      Top             =   2880
      Width           =   975
   End
   Begin VB.Label txtBVND 
      BackStyle       =   0  'Transparent
      Caption         =   "BVND"
      Height          =   255
      Index           =   5
      Left            =   5760
      TabIndex        =   52
      Top             =   4200
      Width           =   975
   End
   Begin VB.Label txtBVND 
      BackStyle       =   0  'Transparent
      Caption         =   "BVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   5760
      TabIndex        =   51
      Top             =   3840
      Width           =   975
   End
   Begin VB.Label txtBVND 
      BackStyle       =   0  'Transparent
      Caption         =   "BVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   5760
      TabIndex        =   50
      Top             =   3600
      Width           =   975
   End
   Begin VB.Label txtBVND 
      BackStyle       =   0  'Transparent
      Caption         =   "BVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   5760
      TabIndex        =   49
      Top             =   3360
      Width           =   975
   End
   Begin VB.Label txtBVND 
      BackStyle       =   0  'Transparent
      Caption         =   "BVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   5760
      TabIndex        =   48
      Top             =   3120
      Width           =   975
   End
   Begin VB.Label txtBVND 
      BackStyle       =   0  'Transparent
      Caption         =   "BVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   5760
      TabIndex        =   47
      Top             =   2880
      Width           =   975
   End
   Begin VB.Label txtOFFICE 
      BackStyle       =   0  'Transparent
      Caption         =   "OFFICE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   1920
      TabIndex        =   46
      Top             =   3840
      Width           =   1095
   End
   Begin VB.Label txtOFFICE 
      BackStyle       =   0  'Transparent
      Caption         =   "OFFICE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   1920
      TabIndex        =   45
      Top             =   3600
      Width           =   1095
   End
   Begin VB.Label txtOFFICE 
      BackStyle       =   0  'Transparent
      Caption         =   "OFFICE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   1920
      TabIndex        =   44
      Top             =   3360
      Width           =   1095
   End
   Begin VB.Label txtOFFICE 
      BackStyle       =   0  'Transparent
      Caption         =   "OFFICE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   1920
      TabIndex        =   43
      Top             =   3120
      Width           =   1095
   End
   Begin VB.Label txtOFFICE 
      BackStyle       =   0  'Transparent
      Caption         =   "OFFICE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   1920
      TabIndex        =   42
      Top             =   2880
      Width           =   1095
   End
   Begin VB.Label txtCUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "CUSD"
      Height          =   255
      Index           =   5
      Left            =   4560
      TabIndex        =   41
      Top             =   4200
      Width           =   975
   End
   Begin VB.Label txtCUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "CUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   4560
      TabIndex        =   40
      Top             =   3840
      Width           =   975
   End
   Begin VB.Label txtCUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "CUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   4560
      TabIndex        =   39
      Top             =   3600
      Width           =   975
   End
   Begin VB.Label txtCUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "CUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   4560
      TabIndex        =   38
      Top             =   3360
      Width           =   975
   End
   Begin VB.Label txtCUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "CUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   4560
      TabIndex        =   37
      Top             =   3120
      Width           =   975
   End
   Begin VB.Label txtCUSD 
      BackStyle       =   0  'Transparent
      Caption         =   "CUSD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   4560
      TabIndex        =   36
      Top             =   2880
      Width           =   975
   End
   Begin VB.Label txtCVND 
      BackStyle       =   0  'Transparent
      Caption         =   "CVND"
      Height          =   255
      Index           =   5
      Left            =   3240
      TabIndex        =   35
      Top             =   4200
      Width           =   1095
   End
   Begin VB.Label txtCVND 
      BackStyle       =   0  'Transparent
      Caption         =   "CVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   4
      Left            =   3240
      TabIndex        =   34
      Top             =   3840
      Width           =   1095
   End
   Begin VB.Label txtCVND 
      BackStyle       =   0  'Transparent
      Caption         =   "CVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   3
      Left            =   3240
      TabIndex        =   33
      Top             =   3600
      Width           =   1095
   End
   Begin VB.Label txtCVND 
      BackStyle       =   0  'Transparent
      Caption         =   "CVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   3240
      TabIndex        =   32
      Top             =   3360
      Width           =   1095
   End
   Begin VB.Label txtCVND 
      BackStyle       =   0  'Transparent
      Caption         =   "CVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   3240
      TabIndex        =   31
      Top             =   3120
      Width           =   1095
   End
   Begin VB.Label txtCVND 
      BackStyle       =   0  'Transparent
      Caption         =   "CVND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   3240
      TabIndex        =   30
      Top             =   2880
      Width           =   1095
   End
   Begin VB.Label txtDate 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Date"
      Height          =   375
      Left            =   3840
      TabIndex        =   29
      Top             =   1080
      Width           =   4335
   End
   Begin VB.Label txtInumber 
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   8040
      TabIndex        =   28
      Top             =   1680
      Width           =   2415
   End
   Begin VB.Label Label21 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "OFFICE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2040
      TabIndex        =   27
      Top             =   2400
      Width           =   855
   End
   Begin VB.Label Label20 
      BackStyle       =   0  'Transparent
      Caption         =   "TYPE"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   8160
      TabIndex        =   26
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label19 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "TOTAL"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   25
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label Label18 
      BackStyle       =   0  'Transparent
      Caption         =   "USD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   7080
      TabIndex        =   24
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "VND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5640
      TabIndex        =   23
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label16 
      BackStyle       =   0  'Transparent
      Caption         =   "USD"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4680
      TabIndex        =   22
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "VND"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3240
      TabIndex        =   21
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label14 
      BackStyle       =   0  'Transparent
      Caption         =   "Bank"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6240
      TabIndex        =   20
      Top             =   2040
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Cash"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3480
      TabIndex        =   19
      Top             =   2040
      Width           =   1575
   End
   Begin VB.Line Line19 
      X1              =   8040
      X2              =   8040
      Y1              =   2040
      Y2              =   4680
   End
   Begin VB.Line Line18 
      X1              =   6840
      X2              =   6840
      Y1              =   2520
      Y2              =   4680
   End
   Begin VB.Line Line17 
      X1              =   5640
      X2              =   5640
      Y1              =   2040
      Y2              =   4680
   End
   Begin VB.Line Line16 
      X1              =   4440
      X2              =   4440
      Y1              =   2520
      Y2              =   4680
   End
   Begin VB.Line Line15 
      DrawMode        =   1  'Blackness
      X1              =   1800
      X2              =   10680
      Y1              =   4080
      Y2              =   4080
   End
   Begin VB.Line Line14 
      DrawMode        =   1  'Blackness
      X1              =   1800
      X2              =   10680
      Y1              =   3840
      Y2              =   3840
   End
   Begin VB.Line Line13 
      DrawMode        =   1  'Blackness
      X1              =   1800
      X2              =   10680
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Line Line12 
      DrawMode        =   1  'Blackness
      X1              =   1800
      X2              =   10680
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Line Line11 
      DrawMode        =   1  'Blackness
      X1              =   1800
      X2              =   10680
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Line Line10 
      X1              =   1800
      X2              =   10680
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Line Line9 
      X1              =   3120
      X2              =   8040
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line8 
      X1              =   3120
      X2              =   3120
      Y1              =   2040
      Y2              =   4680
   End
   Begin VB.Line Line7 
      X1              =   2880
      X2              =   5880
      Y1              =   7680
      Y2              =   7680
   End
   Begin VB.Line Line6 
      X1              =   2880
      X2              =   10680
      Y1              =   7320
      Y2              =   7320
   End
   Begin VB.Line Line5 
      X1              =   2880
      X2              =   6960
      Y1              =   6960
      Y2              =   6960
   End
   Begin VB.Line Line4 
      X1              =   2880
      X2              =   10680
      Y1              =   6600
      Y2              =   6600
   End
   Begin VB.Line Line3 
      X1              =   2880
      X2              =   10680
      Y1              =   6240
      Y2              =   6240
   End
   Begin VB.Line Line2 
      X1              =   2880
      X2              =   10680
      Y1              =   5880
      Y2              =   5880
   End
   Begin VB.Line Line1 
      X1              =   2880
      X2              =   5160
      Y1              =   5520
      Y2              =   5520
   End
   Begin VB.Label txtDocument 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   2880
      TabIndex        =   18
      Top             =   7440
      Width           =   2415
   End
   Begin VB.Label txtTotalWords 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   2880
      TabIndex        =   17
      Top             =   7080
      Width           =   9615
   End
   Begin VB.Label txtTotalNumber 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   2880
      TabIndex        =   16
      Top             =   6720
      Width           =   4095
   End
   Begin VB.Label txtDescription 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   2880
      TabIndex        =   15
      Top             =   6360
      Width           =   9615
   End
   Begin VB.Label txtCompanyTitle 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   2880
      TabIndex        =   14
      Top             =   6000
      Width           =   7935
   End
   Begin VB.Label txtReceiver 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   2880
      TabIndex        =   13
      Top             =   5640
      Width           =   6135
   End
   Begin VB.Label txtDoneby 
      BackStyle       =   0  'Transparent
      Height          =   375
      Left            =   2880
      TabIndex        =   12
      Top             =   5280
      Width           =   2295
   End
   Begin VB.Label Label13 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "MB/GM"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   8880
      TabIndex        =   11
      Top             =   8280
      Width           =   2055
   End
   Begin VB.Label Label12 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "RECEIVER/PAYER"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   4680
      TabIndex        =   10
      Top             =   8280
      Width           =   3495
   End
   Begin VB.Label Label3 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "ACCOUNTANT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   1680
      TabIndex        =   9
      Top             =   8280
      Width           =   2655
   End
   Begin VB.Label lblTitle 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "RECEIPT"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2760
      TabIndex        =   8
      Top             =   600
      Width           =   6255
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Done by"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1080
      TabIndex        =   7
      Top             =   5280
      Width           =   675
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Receiver/Payer"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1080
      TabIndex        =   6
      Top             =   5640
      Width           =   1290
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Company Title"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1080
      TabIndex        =   5
      Top             =   6000
      Width           =   1200
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Description"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1080
      TabIndex        =   4
      Top             =   6360
      Width           =   975
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Total in number"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1080
      TabIndex        =   3
      Top             =   6720
      Width           =   1320
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Document attached"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1080
      TabIndex        =   2
      Top             =   7440
      Width           =   1665
   End
   Begin VB.Label Label11 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Total in words"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Left            =   1080
      TabIndex        =   1
      Top             =   7080
      Width           =   1200
   End
   Begin VB.Label Label7 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Nbr:"
      Height          =   240
      Left            =   7455
      TabIndex        =   0
      Top             =   1680
      Width           =   360
   End
End
Attribute VB_Name = "frmSubPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Function filldataME()
Dim i As Integer
    With frmME
    txtDoneby.Caption = .txtDoneby.Text
    txtReceiver.Caption = .txtReceiver.Text
    txtCompanyTitle.Caption = .txtCompanyTitle.Text
    txtDescription.Caption = .txtDescription.Text
    txtTotalNumber.Caption = Format(.txtTotalNumber.Text, "##,###")
    txtDocument.Caption = .txtDocument.Text
    txtDate.Caption = "Date " & .DTPicker1.Day & " Month " & .DTPicker1.Month & " Year " & .DTPicker1.Year
    txtTotalWords.Caption = .txtTotalWords.Text
    txtInumber.Caption = .txtInumber.Text
    lblROE.Caption = "ROE: " & .txtROE.Text
    Line21.Visible = False
    i = 0
     txtBUSD.item(5).Caption = ""
            txtCUSD.item(5).Caption = ""
            txtCVND.item(5).Caption = ""
            txtBVND.item(5).Caption = ""
            
    For i = 1 To 5
            txtOFFICE.item(i - 1).Caption = ""
            txtType.item(i - 1).Caption = ""
            txtBUSD.item(i - 1).Caption = ""
            txtCUSD.item(i - 1).Caption = ""
            txtCVND.item(i - 1).Caption = ""
            txtBVND.item(i - 1).Caption = ""
                     
     Next i
            
        
                    txtOFFICE.item(0).Caption = .cmbOFFC.Text
                    If .chkBank.Value = 1 Then
                    
                        txtBUSD.item(0).Caption = Format(.txtUSD.Text, "##,###")
                        txtBUSD.item(5).Caption = Format(.txtUSD.Text, "##,###")
                        txtBVND.item(0).Caption = Format(.txtVND.Text, "##,###")
                        txtBVND.item(5).Caption = Format(.txtVND.Text, "##,###")
                    Else
                        txtCUSD.item(0).Caption = Format(.txtUSD.Text, "##,###")
                        txtCUSD.item(5).Caption = Format(.txtUSD.Text, "##,###")
                        txtCVND.item(0).Caption = Format(.txtVND.Text, "##,###")
                        txtCVND.item(5).Caption = Format(.txtVND.Text, "##,###")
                    End If
                    
                    txtType.item(0).Caption = .cboType.Text
            
            
     
        
    End With
 Label21.Caption = frmME.Label1(0).Caption
End Function

Public Function filldataCBT()
Dim i As Integer
    With frmCBT
    txtDoneby.Caption = .txtDoneby.Text
    txtReceiver.Caption = .txtReceiver.Text
    txtCompanyTitle.Caption = .txtCompanyTitle.Text
    txtDescription.Caption = .txtDescription.Text
    txtTotalNumber.Caption = Format(.txtTotalNumber.Text, "##,###")
    txtDocument.Caption = .txtDocument.Text
    txtDate.Caption = "Date " & .DTPicker1.Day & " Month " & .DTPicker1.Month & " Year " & .DTPicker1.Year
    txtTotalWords.Caption = .txtTotalWords.Text
    txtInumber.Caption = .txtInumber.Text
    lblROE.Caption = "ROE: " & .txtROE.Text
    Line21.Visible = False
    i = 0
     txtBUSD.item(5).Caption = ""
            txtCUSD.item(5).Caption = ""
            txtCVND.item(5).Caption = ""
            txtBVND.item(5).Caption = ""
            
    For i = 1 To 5
            txtOFFICE.item(i - 1).Caption = ""
            txtType.item(i - 1).Caption = ""
            txtBUSD.item(i - 1).Caption = ""
            txtCUSD.item(i - 1).Caption = ""
            txtCVND.item(i - 1).Caption = ""
            txtBVND.item(i - 1).Caption = ""
                     
     Next i
            
        
                    txtOFFICE.item(0).Caption = .cmbOFFC.Text
                    If .chkBank.Value = 1 Then
                        If .chkUSDUSD.Value = 1 Then
                        
                            txtBUSD.item(0).Caption = Format(.txtUSD.Text, "##,###")
                            txtBUSD.item(5).Caption = Format(.txtUSD.Text, "##,###")
                            txtCUSD.item(0).Caption = Format(Val(.txtUSD.Text) * (-1), "##,###")
                            txtCUSD.item(5).Caption = Format(Val(.txtUSD.Text) * (-1), "##,###")
                        ElseIf .chkUSDLC.Value = 1 Then
                            txtBUSD.item(0).Caption = Format(.txtUSD.Text, "##,###")
                            txtBUSD.item(5).Caption = Format(.txtUSD.Text, "##,###")
                            txtCVND.item(0).Caption = Format(Val(.txtVND.Text), "##,###")
                            txtCVND.item(5).Caption = Format(Val(.txtVND.Text), "##,###")
                        ElseIf .chkLCLC.Value = 1 Then
                            txtBVND.item(0).Caption = Format(.txtVND.Text, "##,###")
                            txtBVND.item(5).Caption = Format(.txtVND.Text, "##,###")
                            txtCVND.item(0).Caption = Format(Val(.txtVND.Text) * (-1), "##,###")
                            txtCVND.item(5).Caption = Format(Val(.txtVND.Text) * (-1), "##,###")
                        ElseIf .chkLCUSD.Value = 1 Then
                            txtBVND.item(0).Caption = Format(.txtVND.Text, "##,###")
                            txtBVND.item(5).Caption = Format(.txtVND.Text, "##,###")
                            txtCUSD.item(0).Caption = Format(Val(.txtUSD.Text), "##,###")
                            txtCUSD.item(5).Caption = Format(Val(.txtUSD.Text), "##,###")
                        
                        End If
                    Else
                        If .chkUSDUSD.Value = 1 Then
                        
                            txtCUSD.item(0).Caption = Format(.txtUSD.Text, "##,###")
                            txtCUSD.item(5).Caption = Format(.txtUSD.Text, "##,###")
                            txtBUSD.item(0).Caption = Format(Val(.txtUSD.Text) * (-1), "##,###")
                            txtBUSD.item(5).Caption = Format(Val(.txtUSD.Text) * (-1), "##,###")
                        ElseIf .chkUSDLC.Value = 1 Then
                            txtCUSD.item(0).Caption = Format(.txtUSD.Text, "##,###")
                            txtCUSD.item(5).Caption = Format(.txtUSD.Text, "##,###")
                            txtBVND.item(0).Caption = Format(Val(.txtVND.Text), "##,###")
                            txtBVND.item(5).Caption = Format(Val(.txtVND.Text), "##,###")
                        ElseIf .chkLCLC.Value = 1 Then
                            txtCVND.item(0).Caption = Format(.txtVND.Text, "##,###")
                            txtCVND.item(5).Caption = Format(.txtVND.Text, "##,###")
                            txtBVND.item(0).Caption = Format(Val(.txtVND.Text) * (-1), "##,###")
                            txtBVND.item(5).Caption = Format(Val(.txtVND.Text) * (-1), "##,###")
                        ElseIf .chkLCUSD.Value = 1 Then
                            txtCVND.item(0).Caption = Format(.txtVND.Text, "##,###")
                            txtCVND.item(5).Caption = Format(.txtVND.Text, "##,###")
                            txtBUSD.item(0).Caption = Format(Val(.txtUSD.Text), "##,###")
                            txtBUSD.item(5).Caption = Format(Val(.txtUSD.Text), "##,###")
                        
                        End If
                    End If
                    
                    txtType.item(0).Caption = .cboType.Text
            
            
     
        
    End With
 Label21.Caption = frmCBT.Label1(0).Caption
End Function

Public Function filledindata()
Dim i As Integer

                With frmIncoice
                    txtDoneby.Caption = .txtDoneby.Text
                    txtReceiver.Caption = .txtReceiver.Text
                    txtCompanyTitle.Caption = .txtCompanyTitle.Text
                    txtDescription.Caption = .txtDescription.Text
                    txtTotalNumber.Caption = Format(.txtTotalNumber.Text, "##,###")
                    txtDocument.Caption = .txtDocument.Text
                    txtDate.Caption = "Date " & .DTPicker1.Day & " Month " & .DTPicker1.Month & " Year " & .DTPicker1.Year
                    txtTotalWords.Caption = .txtTotalWords.Text
                    txtInumber.Caption = .txtInumber.Text
                    Line21.Visible = True
                    i = 0
                     txtBUSD.item(5).Caption = ""
                            txtCUSD.item(5).Caption = ""
                            txtCVND.item(5).Caption = ""
                            txtBVND.item(5).Caption = ""
                            
                    For i = 1 To 5
                            txtOFFICE.item(i - 1).Caption = ""
                            txtType.item(i - 1).Caption = ""
                            txtBUSD.item(i - 1).Caption = ""
                            txtCUSD.item(i - 1).Caption = ""
                            txtCVND.item(i - 1).Caption = ""
                            txtBVND.item(i - 1).Caption = ""
                                     
                           
                            
                            If i <= .Grid1.rows - 1 Then
                                    txtOFFICE.item(i - 1).Caption = .Grid1.TextMatrix(i, 1)
                                    If UCase(.Grid1.TextMatrix(i, 2)) = "USD" And UCase(.Grid1.TextMatrix(i, 3)) = "BANK" Then
                                        txtBUSD.item(i - 1).Caption = Format(.Grid1.TextMatrix(i, 4), "##,###")
                                        txtBUSD.item(5).Caption = Format(.txtTotalNumber.Text, "##,###")
                                    ElseIf UCase(.Grid1.TextMatrix(i, 2)) = "USD" And UCase(.Grid1.TextMatrix(i, 3)) = "CASH" Then
                                        txtCUSD.item(i - 1).Caption = Format(.Grid1.TextMatrix(i, 4), "##,###")
                                        txtCUSD.item(5).Caption = Format(.txtTotalNumber.Text, "##,###")
                                        
                                    ElseIf (UCase(.Grid1.TextMatrix(i, 2)) = "VND" Or UCase(.Grid1.TextMatrix(i, 2)) = "LAK" Or UCase(.Grid1.TextMatrix(i, 2)) = "KHR") And UCase(.Grid1.TextMatrix(i, 3)) = "CASH" Then
                                        txtCVND.item(i - 1).Caption = Format(.Grid1.TextMatrix(i, 4), "##,###")
                                        txtCVND.item(5).Caption = Format(.txtTotalNumber.Text, "##,###")
                                    ElseIf (UCase(.Grid1.TextMatrix(i, 2)) = "VND" Or UCase(.Grid1.TextMatrix(i, 2)) = "LAK" Or UCase(.Grid1.TextMatrix(i, 2)) = "KHR") And UCase(.Grid1.TextMatrix(i, 3)) = "BANK" Then
                                        txtBVND.item(i - 1).Caption = Format(.Grid1.TextMatrix(i, 4), "##,###")
                                        txtBVND.item(5).Caption = Format(.txtTotalNumber.Text, "##,###")
                                    End If
                                    
                                    txtType.item(i - 1).Caption = .Grid1.TextMatrix(i, 5)
                            
                            End If
                     Next i
                        
                End With
                Label21.Caption = frmIncoice.Label1(0).Caption
End Function

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()
If stroffice = "PNH" Then
    Label15.Caption = "KHR"
    Label17.Caption = "KHR"
ElseIf stroffice = "VTE" Then
     Label15.Caption = "LAK"
    Label17.Caption = "LAK"
End If
End Sub
